home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 February / CHIPCD_02_2002.iso / Internet / Macromedia ColdFusion Server 5 / coldfusion-50-win-us.exe / data1.cab / Examples / CFDOCS / snippets / find.cfm < prev    next >
Encoding:
Text File  |  2001-06-13  |  3.3 KB  |  99 lines
  1. <!--- This example uses find, findnocase, and findoneof
  2.  to see if a substring exists in a web page --->
  3. <HTML>
  4. <HEAD>
  5. <TITLE>
  6. Find Example
  7. </TITLE>
  8. </HEAD>
  9.  
  10. <BODY bgcolor=silver>
  11. <H3>Find Example</H3>
  12.  
  13. <P>This example uses find, findnocase and findone of to see 
  14. if a substring exists in a particular web page.
  15.  
  16. <P>This example has been disabled for online viewing.  Please use your copy of ColdFusion to view this example.
  17. <!--- 
  18. <FORM ACTION="find.cfm" METHOD="POST">
  19. Try entering a URL for the tag to return:
  20. <BR><INPUT TYPE="Text" size=25 NAME="urladdress" VALUE="http://www.allaire.com">
  21. <P>And a substring to search for:
  22. <BR><INPUT TYPE="Text" size=25 NAME="myString" VALUE="Allaire">
  23. <P>Pick a search type:
  24.     <SELECT NAME="type">
  25.         <OPTION VALUE="find" SELECTED>Case-Sensitive
  26.         <OPTION VALUE="findNoCase">Case-Insensitive
  27.         <OPTION VALUE="findOneOf">Find first instance
  28.     </SELECT>
  29. <INPUT TYPE="Submit" NAME="" VALUE="get page">
  30. </FORM>
  31.  
  32. <!--- sets a default value for a url to retrieve --->
  33. <CFPARAM name="urladdress" default="http://localhost/cfdocs/index.htm">
  34. <!--- if we have passed a url address in the form, we
  35. want to display the passed address --->
  36. <CFIF IsDefined("form.urladdress") is True>
  37. <!--- do simple error check to avoid crashing the
  38. tag --->
  39.     <CFIF Trim(Form.urladdress) is "" or Trim(Form.urladdress) is "http://">
  40. <!--- if error condition tripped, set alternative --->
  41.         <CFSET urlAddress ="http://localhost/cfdocs/index.htm">
  42.         <H4>because you entered no url or an empty string, the tag
  43.         will return the following address: http://localhost/cfdocs/index.htm</H4>
  44.     <CFELSE>
  45. <!--- otherwise use address passed from form --->
  46.         <CFSET urlAddress = form.urladdress>
  47.     </CFIF>
  48. <!--- now use the CFHTTP tag to get the file content
  49. represented by urladdress --->    
  50.         <CFHTTP URL="#urladdress#"
  51.             METHOD="GET"
  52.             RESOLVEURL=YES>
  53.         </CFHTTP>
  54. <CFELSE>
  55. <!--- the first time through, retrieve a URL that we know
  56. exists --->
  57. <CFHTTP URL="http://localhost/cfdocs/index.htm"
  58.     METHOD="GET"
  59.     RESOLVEURL=YES>
  60. </CFHTTP>
  61. </CFIF>
  62. <!--- wait to have a string for searching defined --->
  63. <CFIF IsDefined("form.myString") and IsDefined("form.type")>
  64.     <!--- Now, test to see if the term was found --->
  65.     A     <CFIF form.type is "find">case-sensitive
  66.             <CFSET tag="find">
  67.         <CFELSEIF form.type is "findNoCase">case-insensitive 
  68.             <CFSET tag="findNoCase">
  69.         <CFELSEIF form.type is "findOneOf">find the first instance of any character
  70.             <CFSET tag="findOneOf">
  71.         </CFIF> test for your string "<CFOUTPUT>#form.MyString#</CFOUTPUT>"
  72.     in the url: "<CFOUTPUT>#urlAddress#</CFOUTPUT>"
  73.  
  74. <!--- depending upon the action desired, perform
  75. different function --->
  76. <CFSWITCH EXPRESSION="#tag#">
  77.     <CFCASE value="find">
  78.         <CFSET TheAction = Find(form.MyString, CFHTTP.FileContent, 1)>
  79.     </CFCASE>
  80.     <CFCASE value="findNoCase">
  81.         <CFSET TheAction = FindNoCase(form.MyString, CFHTTP.FileContent, 1)>
  82.     </CFCASE>    
  83.     <CFCASE value="findOneof">
  84.         <CFSET TheAction = FindOneOf(form.MyString, CFHTTP.FileContent, 1)>
  85.     </CFCASE>    
  86.     <CFDEFAULTCASE>
  87.         <CFSET TheAction = Find(form.MyString, CFHTTP.FileContent, 1)>
  88.     </CFDEFAULTCASE>
  89. </CFSWITCH>
  90.     <CFIF TheAction is not 0>
  91.     <P>We found an instance of your string at index <CFOUTPUT>#theAction#</CFOUTPUT>
  92.     <CFELSE>
  93.     <P>No instance of your string was found.
  94.     </CFIF>
  95. </CFIF>
  96.  --->
  97. </BODY>
  98. </HTML>       
  99.